Program func7;
Uses crt;
Var
x1, y1, x2, y2, x3, y3: integer;
S, p: real;
Function rast(a, b: integer): real;
Begin
rast := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
End;
Begin
Writeln('введите координаты 1 точки x1 и y1');
readln(x1, y1);
Writeln('введите координаты 2 точки x2 и y2');
readln(x2, y2);
Writeln('введите координаты 3 точки x3 и y3');
readln(x3, y3);
p := (rast(x1, y1) + rast(x2, y2) + rast(x3, y3)) / 2;
S := sqrt(p * (p - rast(x1, y1)) * (p - rast(x2, y2)) * (p - rast(x2, y2)));
Writeln('площадь=', S:4:2);
readln;
End.